home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / sharewar / emula / c6411b / testdisk.d64 / where am i (.txt) < prev   
Commodore BASIC  |  1994-10-09  |  535b  |  20 lines
  1. 100 REM *** WHERE AM I? ***
  2. 110 PRINT:X=57343:IFPEEK(X)<>85THENIFPEEK(X)<>85THEN400
  3. 120 IFPEEK(X)<>170THEN400
  4. 130 IFPEEK(X)<>85THEN400
  5. 140 IFPEEK(X)<>170THEN400
  6. 200 M$=CHR$(PEEK(57342)):PRINT"MANUFACTURER = '";M$;"' ";
  7. 210 IFM$="A"THENPRINT"(C64ALIVE)";
  8. 220 IFM$="M"THENPRINT"(MC64)";
  9. 230 IFM$="S"THENPRINT"(C64S)";
  10. 240 IFM$="X"THENPRINT"(X64)";
  11. 290 PRINT
  12. 300 V=PEEK(57340)+PEEK(57341)*256
  13. 310 FORN=0TO3:V$=MID$("01234567890ABCDEF",1+(VAND15),1)+V$:V=INT(V/16):NEXT
  14. 320 PRINT"VERSION = $";V$
  15. 330 PRINT:POKE780,160
  16. 340 IF(M$="M"ORM$="L")ANDV$="0100"ANDPEEK(60686)<>2THENPOKE780,0
  17. 350 POKE782,223:SYS43806
  18. 390 PRINT:END
  19. 400 PRINT"THIS SEEMS MUCH LIKE AN ORIGINAL C64":PRINT"OR C128."
  20.